perm filename 222.F4[SAM,LCS] blob sn#454351 filedate 1979-07-04 generic text, type C, neo UTF8
COMMENT āŠ—   VALID 00002 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002	1	FORMAT(' ALL DONE'//)
C00014 ENDMK
CāŠ—;
1	FORMAT(' ALL DONE'//)
2	FORMAT(' TYPE <RETURN> TO PLAY'$)
3	FORMAT(8A1)
CC	IF(K.NE.0)GO TO 4
	TYPE 2
	ACCEPT 3,K
	IF(K.NE.' ')GO TO 4   
	K=1
	CALL PLAY
C WHEN PLAY EXITS IT GOES TO TOP OF PROGRAM.
4	K=0
CC	TYPE 1
	END